home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win98 Start Menu 2.xpl < prev    next >
Text File  |  2002-01-01  |  3KB  |  83 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH 1"="Appearance\Start menu\Windows 98"
  5. "UIPATH 2"="Appearance\Start menu\Windows ME"
  6. "UIPATH 3"="Appearance\Start menu\Windows 2000"
  7. "NAME"="Visible Items in Start->Settings"
  8. "VERSION"="2.01"
  9. "OSVERSION"="001110"
  10. "LANGUAGE"="VBScript"
  11. "TEXT 1"="Show Control Panel and Printers"
  12. "TEXT 2"="Show "Folder options" item"
  13. "TEXT 3"="Show "Taskbar options" item"
  14. "TEXT 4"="Show "ActiveDesktop options" item"
  15. "TEXT 5"="Show "Windows Update" item
  16. "DESCRIPTION 1"="This plug-in allows you to change which items are displayed in Start -> Settings."
  17. "DESCRIPTION 2"="NOTE #1: Disabling "Control Panel and Printers" will also disable WINDOWS+E to start the Explorer."
  18. "DESCRIPTION 3"="NOTE #2: Disabling "Folder options" will also disable "View" -> "Folder Options" inside the Explorer."
  19. "DESCRIPTION 4"="NOTE #3: Disabling "Windows Update" will also disable Windows Update if you try to run it from the command line."
  20. "DESCRIPTION 5"="NOTE #4: Disabling all 5 options hides the "Settings" menu totally."
  21. "AUTHOR"="Xteq Systems"
  22. "CONTACTURL"="http://www.xteq.com"
  23. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  24. "COMMENT 1"=" "
  25. "COMMENT 2"="Thanks to Ray Li (rayli@email.com) for spotting the WINDOWS+E effect."
  26.  
  27.  
  28. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  29. sV1="NoSetFolders" 'DW
  30. sV2="NoFolderOptions" 'DW
  31. sV3="NoSetTaskbar" 'DW
  32. sV4="NoSetActiveDesktop" 'DW
  33. sV5="NoWindowsUpdate"
  34.  
  35. SUB Plugin_Initialize 
  36.  'i=RegReadValue(sp&sV1)  
  37.  'if IsEmpty(i) or i=0 then SetUIElement 1,true 
  38.  
  39.  Call myReadItem(sV1,1)
  40.  Call myReadItem(sV2,2)
  41.  Call myReadItem(sV3,3)
  42.  Call myReadItem(sV4,4)
  43.  Call myReadItem(sV5,5)
  44. END SUB
  45.  
  46. 'Called when the Plugin should validate the Data the user has entered
  47. SUB Plugin_CheckData(ElementIndex)
  48. END SUB
  49.  
  50. 'Called when the Plugin should apply the changes
  51. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  52.  Call myWriteItem(sV1,1)
  53.  Call myWriteItem(sV2,2)
  54.  Call myWriteItem(sV3,3)
  55.  Call myWriteItem(sV4,4)
  56.  Call myWriteItem(sV5,5)
  57.  
  58.  Call IndicateSettingChange()
  59. END SUB
  60.  
  61. 'Called when the Plugin is about to be removed from memory
  62. SUB Plugin_Terminate
  63. END SUB
  64.  
  65.  
  66. Sub myReadItem(itmReg,ui)
  67.  i=RegReadValue(sp&itmReg)  
  68.  if IsEmpty(i) or i=0 then 
  69.     Call SetUIElement(ui,true)
  70.  end if
  71. End Sub
  72.  
  73. Sub myWriteItem(itmReg,ui)
  74.  if GetUIElement(ui)=true then
  75.     s=RegReadValue(sp&itmReg)
  76.     if IsEmpty(s)=false then Call RegDeleteValue(sp&itmReg)
  77.  else
  78.     Call RegWriteValue(sp&itmReg,1,2)
  79.  end if
  80. End sub
  81.  
  82.  
  83.